From: Jim Blandy <jimb@redhat.com>
Date: Tue, 2 Mar 1993 08:11:01 +0000 (+0000)
Subject: * data.c (Fstring_to_number): Declare p to be an unsigned char, to
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~97073
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=0a3e4d653cb1655c33528824aa604a7cb6033fd2;p=emacs.git

* data.c (Fstring_to_number): Declare p to be an unsigned char, to
	match the data field of strings.

	* data.c (Fstring_to_number): Just skip tabs and spaces; don't use
	the <ctype.h> macros.  The <ctype.h> stuff apparently varies from
	locale to locale more than we'd like.  Don't include <ctype.h>.
---

diff --git a/src/data.c b/src/data.c
index f5003641b38..20a28bee2b5 100644
--- a/src/data.c
+++ b/src/data.c
@@ -19,7 +19,6 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
 
 #include <signal.h>
-#include <ctype.h>
 
 #include "config.h"
 #include "lisp.h"
@@ -1456,7 +1455,7 @@ This parses both integers and floating point numbers.")
   (str)
      register Lisp_Object str;
 {
-  char *p;
+  unsigned char *p;
 
   CHECK_STRING (str, 0);
 
@@ -1464,7 +1463,7 @@ This parses both integers and floating point numbers.")
 
   /* Skip any whitespace at the front of the number.  Some versions of
      atoi do this anyway, so we might as well make Emacs lisp consistent.  */
-  while (isspace (*p))
+  while (*p == ' ' || *p == '\t')
     p++;
 
 #ifdef LISP_FLOAT_TYPE